﻿Public Class frmRegistrarPromocionvb

    Private Sub btnregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
        'Dim myPromocion As New Promocion
        'myPromocion.Codigo = txtproducto.Text
        'myPromocion.PrecioV = txtventa.Text
        'myPromocion.Precio = txtofertas.Text
        'myPromocion.Descipcion = txtdescripcion.Text
        'myPromocion.Codigo = txtPromocion.Text

        'CType(Me.MdiParent, frmContenedor).ListaPromocionesTotales.AddFirst(myPromocion)
        'MsgBox("SE REGISTRO A LA PROMOCION")
        'Me.Hide()
        Try

            Dim myconeccion As New Conexion
            myconeccion.conectar()
            Dim consulta As String

            consulta = "insert into PROMOCION values ('" + txtventa.Text + "','" + txtofertas.Text + "','" + txtdescripcion.Text + "')"
            '  MsgBox(consulta)
            myconeccion.consulta(consulta)
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Sub
End Class
